home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C/C++ Users Group Library 1996 July
/
C-C++ Users Group Library July 1996.iso
/
vol_200
/
280_01
/
getlin.c
< prev
next >
Wrap
Text File
|
1989-01-11
|
1KB
|
52 lines
/* [getlin.c of JUGPDS Vol.17] */
/*
*****************************************************************
* *
* Written by Hakuo Katayose (JUG-CP/M No.179) *
* 49-114 Kawauchi-Sanjuunin-machi *
* Sendai, Miyagi 980 *
* Phone: 0222-61-3219 *
* *
* Modifird by Toshiya Oota (JUG-CPM No.10) *
* Sakae ko-po 205 *
* 5-19-6 Hosoda *
* Katusikaku Tokyo 124 *
* *
* for MS-DOS Lattice C V3.1J & 80186/V20/V30 *
* *
* Compiler Option: -ccu -k0(1) -ms -n -v -w *
* *
* Edited & tested by Y. Monma (JUG-CP/M Disk Editor) *
* & T. Ota (JUG-CP/M Sub Disk Editor) *
* *
*****************************************************************
*/
/* Library functions for Software Tools */
#include "stdio.h"
#include "dos.h"
#include "ctype.h"
#include "tools.h"
int getlin(s, lim)
char *s;
int lim;
{
char *p;
int c;
p = s;
/* while(--lim > 0 && (c = getchar()) != EOF && c != NEWLINE) Original */
FOREVER { /* fukusayou bousi */
c = getchar();
if(--lim<=0 || c == EOF || c == NEWLINE)
break;
*s++ = c;
}
if(c == NEWLINE)
*s++ = c;
*s = EOS;
return( (int) (s-p) );
}